The Mac Mega CD - Killer Software/The Mac Mega CD - Killer Software (May 1996).dmg/Shareware City/Graphics/EPS Fixer 1.52/Scripting EPS Fixer/Set PICT to bounding box (Text)

Text File | 1995-01-22 | 392 b | 17 lines | [TEXT/ToyS]

on open theList
    tell application "EPS Fixer"
        set openStatus to uponOpening
        set uponOpening to do nothing
        activate
        repeat with theFile in theList
            open theFile
            tell document frontWindowName
                set PICT rectangle to bounding box
                save document frontWindowName
                close document frontWindowName
            end tell
        end repeat
        set uponOpening to openStatus
    end tell
    quit
end open